From: Alex Schroeder <alex@gnu.org>
Date: Tue, 17 Jan 2006 09:34:11 +0000 (+0000)
Subject: (rmail-cease-edit): Do not adjust the marker of the
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8790^2~164
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=de7f658d14fe7f397e4f3f9ce8631dc1f6b2dae3;p=emacs.git

(rmail-cease-edit): Do not adjust the marker of the
last message.
---

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 75ff7cb901a..fe1a7be25d1 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -119,8 +119,10 @@ This functions runs the normal hook `rmail-edit-mode-hook'.
     (goto-char (point-max))
     (if (/= (preceding-char) ?\n)
 	(insert "\n"))
-    ;; Adjust the marker that points to the end of this message.
-    (rmail-desc-set-start (1+ rmail-current-message) (point)))
+    ;; Adjust the marker that points to the end of this message, unles
+    ;; we're at the last message.
+    (when (< rmail-current-message (length rmail-desc-vector))
+	(rmail-desc-set-end (1+ rmail-current-message) (point))))
   (let ((old rmail-old-text))
     (force-mode-line-update)
     (kill-all-local-variables)